www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_admin_login.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <% dir_set="../" %> <!--#include file=../inc/conn.asp--> <!--#include file="../inc/new_md5.asp"--> <!--#include file="../inc/functionb.asp"--> <!--#include file=inc/sys.asp--> <!--#include file=inc/get.asp--> <% Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-ctrol", "no-cache" Set rsa = server.CreateObject("adodb.recordset") sql = "select * from ND_admin" rsa.open sql, Conn, 1, 3 if rsa.eof or rsa.bof then session(nd_admin_cach_varb_name)="root123root123" rsa.close set rsa=nothing response.Redirect "Admin_user_add.asp" response.end end if %> <% Dim UserTrueIP, TrueIP Action = Trim(Request("Action")) if cstr(sys_url_get)<>cstr(sys_url_get_b) or sys_url_get="" then response.redirect "D_admin_s"&"e.asp" response.end end if If Action = "Login" Then Call ChkLogin ElseIf Action = "Logout" Then Call Logout Else Call main End If If FoundErr = True Then Call WriteErrMsg End If conn.close set conn=nothing %> <!--#include file=inc/inc_sys.asp--> <%sub main%> <htmL> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <style type="text/css"> <!-- .STYLE1 { color: #FFFFFF; text-decoration: none; } --> </style> <head> <title>后台管理</title> <meta http-equiv='Content-Type' content='text/html; charset=gb2312'> <style type="text/css"> <!-- body { margin-top: 50px; font-family: "宋体"; font-size: 12px; color: #023a84; text-decoration: none; } td { font-family: "宋体"; font-size: 12px; color: #cc7218; text-decoration: none; } tr { font-family: "宋体"; font-size: 12px; color: #f187a9; text-decoration: none; } --> </style> <script language=javascript> <!-- function SetFocus() { if(document.Login.UserName.value == '') document.Login.UserName.focus(); else document.Login.UserName.select(); } function CheckForm() { if(document.Login.UserName.value == '') { alert('请输入用户名!'); document.Login.UserName.focus(); return false; } if(document.Login.passWord.value == '') { alert('请输入密码!'); document.Login.passWord.focus(); return false; } if (document.Login.CheckCode.value == '') { alert ('请输入您的验证码!'); document.Login.CheckCode.focus(); return(false); } } function CheckBrowser() { } function CheckBrowser2() { var app=navigator.appName; var verStr=navigator.appVersion; if(app.indexOf('Netscape') != -1) { alert('JSA友情提示:\n 你使用的是Netscape浏览器,可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。'); } else if(app.indexOf('Microsoft') != -1) { if (verStr.indexOf('MSIE 3.0')!=-1 || verStr.indexOf('MSIE 4.0') != -1 || verStr.indexOf('MSIE 5.0') != -1 || verStr.indexOf('MSIE 5.1') != -1) alert('JSA友情提示:\n 您的浏览器版本太低,可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。'); } } //--> </script> <body> <form name='Login' action='D_admin_login.asp' method='post' target='_self' onSubmit='return CheckForm();'> <table width="558" height="363" border="0" align="center" cellpadding="0" cellspacing="0" background="images/admin_bg.jpg"> <tr> <td height="52"> </td> </tr> <tr> <td height="146"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="27%"> </td> <td width="20%"> </td> <td colspan="2"> </td> </tr> <tr> <td height="23"> </td> <td align="right" valign="middle">用户名称:</td> <td colspan="2" valign="middle"><input name="UserName" type="text" id="UserName" style='width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onMouseOver="this.style.background='#b5ebf6';" onMouseOut="this.style.background='#F7F7F7'"></td> </tr> <tr> <td height="26"> </td> <td align="right" valign="middle">用户密码:</td> <td colspan="2" valign="middle"><input name="passWord" type="password" id="passWord" style='width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onMouseOver="this.style.background='#b5ebf6';" onMouseOut="this.style.background='#F7F7F7'"></td> </tr> <tr> <td> </td> <td align="right" valign="middle">验 证 码:</td> <td width="20%" valign="middle"><input name="CheckCode" type="text" id="checkCode" style='width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onMouseOver="this.style.background='#b5ebf6';" onMouseOut="this.style.background='#F7F7F7'"></td> <td width="33%" valign="middle"><img src="checkcode.asp" id="chcodeimg"> <% '以下这句可以防止重新返回本页后 验证码不刷新而 导致的验证码总为空 而导致的登陆不了 if session("CheckCode")="" then '防止刷新后不行又自动不断刷新,最大重试次数限制为max_r_c_ci max_r_c_ci=1 if session("CheckCode_r_count")="" then session("CheckCode_r_count")=1 else session("CheckCode_r_count")=session("CheckCode_r_count")+1 end if if session("CheckCode_r_count")>=max_r_c_ci then session("CheckCode_r_count")=1 else %> <script language=javascript> window.location.reload(); </script> <% end if else session("CheckCode_r_count")=1 end if %> <% 'session(nd_admin_cach_varb_name)="" ' response.cookies(nd_admin_cach_varb_name)="" %></td> </tr> <tr> <td height="26"> </td> <td>跳过后台加载画面:</td> <td colspan="2"><input type="checkbox" name="caaa" value="1" id="caaa" onClick="cahit()"></td> </tr> <tr> <td> </td> <td><input type='hidden' name='Action' value='Login'></td> <td colspan="2"><input type='image' name='Submit' src="images/enter.jpg"></td> </tr> </table></td> </tr> <tr> <td height="91"> </td> </tr> <tr> <td height="47" align="center" valign="bottom"></td> </tr> <tr> <td height="25"> </td> </tr> </table> </form> <script language="javascript"> function setCookie(name,value) { var Days = 90; var exp = new Date(); //new Date("December 31, 9998"); exp.setTime(exp.getTime() + Days*24*60*60*1000); document.cookie = name + "="+ escape (value) + ";expires=" + exp.toGMTString(); } function getCookie(name) { var arr,reg=new RegExp("(^| )"+name+"=([^;]*)(;|$)"); if(arr=document.cookie.match(reg)) return unescape(arr[2]); else return null; } function delCookie(name) { var exp = new Date(); exp.setTime(exp.getTime() - 1); var cval=getCookie(name); if(cval!=null) document.cookie= name + "="+cval+";expires="+exp.toGMTString(); } function cahit(){ if (document.getElementById("caaa").checked==true){ setCookie("tiaohtgui","1"); } else { setCookie("tiaohtgui","0"); } } if ((getCookie("tiaohtgui")==null)||(getCookie("tiaohtgui")=="1")){ document.getElementById("caaa").checked=true; } else { document.getElementById("caaa").checked=false; } </script> <script language='JavaScript' type='text/JavaScript'> CheckBrowser(); SetFocus(); </script> <span class="STYLE1">新动软网站内容管理cms系统-power by <a href="http://www.aspcpu.com"><span class="STYLE1">http://www.aspcpu.com</span></a> 程序制作:阮丁远(天 下程序) </span> </body> </html> <%end sub%> <!--#include file=inc/inc_sys.asp--> <% Sub ChkLogin() Dim sql, rs Dim UserName, Password, CheckCode, RndPassword UserName = ReplaceBadChar(Trim(Request("UserName"))) Password = ReplaceBadChar(Trim(Request("Password"))) CheckCode = LCase(ReplaceBadChar(Trim(Request("CheckCode")))) FoundErr = false If UserName = "" Then FoundErr = True errmsg = errmsg & "用户名不能为空!" End If If cstr(sys_url_get)<>cstr(sys_url_get_b) or sys_url_get="" then response.end End If If Password = "" Then FoundErr = True errmsg = errmsg & "密码不能为空!" End If If CheckCode = "" Then FoundErr = True errmsg = errmsg & "验证码不能为空!" End If If Trim(Session("CheckCode")) = "" Then FoundErr = True errmsg = errmsg & "你登录时间过长,请重新返回登录页面进行登录。" End If If CheckCode <> Session("CheckCode") Then FoundErr = True errmsg = errmsg & "您输入的验证码和系统产生的不一致,请重新输入。" End If If FoundErr = True Then Exit Sub End If If UserTrueIP = "" Then TrueIP = Trim(Request.ServerVariables("HTTP_X_FORWARDED_FOR")) If TrueIP = "" Then TrueIP = Request.ServerVariables("REMOTE_ADDR") Else TrueIP = UserTrueIP End If %> <% Set rs = server.CreateObject("adodb.recordset") sql = "select * from ND_admin where aname='"&UserName&"' and passwd='"&md5(Password)&"'" rs.open sql, Conn, 1, 1 if rs.eof or rs.bof then %> <script language=javascript> //alert("密码或用户名错误!"); //self.location="D_admin_login.asp"; </script> <% FoundErr = True errmsg = errmsg & "密码或用户名错误,请重新输入。" Exit Sub 'response.end else session(nd_admin_cach_varb_name)=UserName session(nd_admin_cach_varb_name&"_pwd")=md5(Password) if set_admin_cookies_on=1 then response.cookies(nd_admin_cach_varb_name)=UserName Response.Cookies(nd_admin_cach_varb_name).Expires=DateAdd("n",500,now()) response.cookies(nd_admin_cach_varb_name&"_pwd")=md5(Password) Response.Cookies(nd_admin_cach_varb_name&"_pwd").Expires=DateAdd("n",500,now()) end if ' Conn.Execute ("Insert Into admin_log (Logdate,time,UserName,UserIP,LogContent) values (" & date() & ","&now()&",'" & UserName & "','" & TrueIP & "','登录成功')") rs.Close if Application("newdsoft_web_user_mdb_using")<>"yes" then Application.Contents.Removeall() end if session("ok_hhhv")="" session("ok_hhhvm")="" %> <script language="javascript"> function axc(){ self.location="D_index_load.asp?tiaog=<%=request("caaa")%>"; } setTimeout("axc();",1300); </script> <% end if End Sub Sub Logout() session(nd_admin_cach_varb_name)="" response.cookies(nd_admin_cach_varb_name)="" Response.Redirect "/index.asp" End Sub '**************************************************** '过程名:WriteErrMsg '作 用:显示错误提示信息 '参 数:无 '**************************************************** Sub WriteErrMsg() strErr="" strErr = strErr & "<htmL><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf strErr = strErr & "<link href='inc/Admin_Style.css' rel='stylesheet' type='text/css'></head><body>" & vbCrLf strErr = strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf strErr = strErr & " <tr align='center'><td height='22' class='title'><strong>错误信息</strong></td></tr>" & vbCrLf strErr = strErr & " <tr><td height='100' class='tdbg' valign='top'><b>产生错误的可能原因:</b><br>" & errmsg & "</td></tr>" & vbCrLf strErr = strErr & " <tr align='center'><td class='tdbg'><a href='D_admin_login.asp'><< 返回登录页面</a></td></tr>" & vbCrLf strErr = strErr & "</table><br><br><br><br><br><br><br><br><br><br><br><br><center>"&"<font color=#ffffff>"&"新"&"动"&"软"&"万"&"能"&"网"&"站"&"系"&"统 版"&"权"&"所"&"有 pow"&"er by h"&"tt"&"p://"&"w"&"w"&"w.a"&"pc"&"p"&"u.co"&"m"&" 程"&"序"&"制"&"作:"&"阮"&"丁"&"远("&"天"&"下"&"程"&"序"&") </font><center>" & vbCrLf strErr = strErr & "</body></html>" & vbCrLf Response.Write strErr 'Response.Write("<script>alert("""&errmsg&""");location.href=""D_admin_login.asp"";</script>") End Sub %>